Chip 2004 November/CMCD1104.ISO/Software/Shareware/Multimedia/audiophiler/audiophilersetup.exe/{app}/audiophiler.exe/0/RCDATA/TDM/TDM.txt

Text File | 2004-09-21 | 33KB | 1,204 lines

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 184
  Top = 284
  Height = 594
  Width = 857
  object DsArtists: TDataSource
    DataSet = CdsArtists
    Left = 264
    Top = 80
  end
  object DsRegions: TDataSource
    AutoEdit = False
    DataSet = CdsRegions
    Left = 264
    Top = 368
  end
  object DsLanguages: TDataSource
    DataSet = CdsLanguages
    Left = 264
    Top = 176
  end
  object DsLabels: TDataSource
    DataSet = CdsLabels
    Left = 264
    Top = 320
  end
  object DsNames: TDataSource
    DataSet = CdsNames
    Left = 264
    Top = 32
  end
  object DsAlbums: TDataSource
    DataSet = TblAlbums
    OnDataChange = DsAlbumsDataChange
    Left = 448
    Top = 464
  end
  object CdsGenres: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'GenreId'
    Params = <>
    ProviderName = 'DspGenres'
    Left = 184
    Top = 128
  end
  object DspGenres: TDataSetProvider
    DataSet = TblGenres
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    AfterUpdateRecord = DspGenresAfterUpdateRecord
    Left = 104
    Top = 128
  end
  object DspRegions: TDataSetProvider
    DataSet = TblRegions
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    AfterUpdateRecord = DspRegionsAfterUpdateRecord
    Left = 104
    Top = 368
  end
  object CdsRegions: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'RegionId'
    Params = <>
    ProviderName = 'DspRegions'
    Left = 184
    Top = 368
  end
  object DspLanguages: TDataSetProvider
    DataSet = TblLanguages
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    AfterUpdateRecord = DspLanguagesAfterUpdateRecord
    Left = 104
    Top = 176
  end
  object CdsLanguages: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'LanguageId'
    Params = <>
    ProviderName = 'DspLanguages'
    Left = 184
    Top = 176
  end
  object DsGenres: TDataSource
    DataSet = CdsGenres
    Left = 264
    Top = 128
  end
  object DspRoles: TDataSetProvider
    DataSet = TblRoles
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    Left = 104
    Top = 416
  end
  object CdsRoles: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'RoleId'
    Params = <>
    ProviderName = 'DspRoles'
    Left = 184
    Top = 416
  end
  object DsRoles: TDataSource
    DataSet = CdsRoles
    Left = 264
    Top = 416
  end
  object DspLabels: TDataSetProvider
    DataSet = TblLabels
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    AfterUpdateRecord = DspLabelsAfterUpdateRecord
    Left = 104
    Top = 320
  end
  object CdsLabels: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'LabelId'
    Params = <>
    ProviderName = 'DspLabels'
    Left = 184
    Top = 320
  end
  object DsStores: TDataSource
    DataSet = CdsStores
    Left = 264
    Top = 464
  end
  object DspMediaTypes: TDataSetProvider
    DataSet = TblMediaTypes
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    AfterUpdateRecord = DspMediaTypesAfterUpdateRecord
    Left = 104
    Top = 224
  end
  object CdsMediaTypes: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'MediaTypeId'
    Params = <>
    ProviderName = 'DspMediaTypes'
    Left = 184
    Top = 224
  end
  object DsMediaTypes: TDataSource
    DataSet = CdsMediaTypes
    Left = 264
    Top = 224
  end
  object DspTracks: TDataSetProvider
    DataSet = TblTracks
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    Left = 448
    Top = 176
  end
  object CdsAlbumTracks: TClientDataSet
    Aggregates = <>
    Filter = 'AlbumId = 1'
    Filtered = True
    FieldDefs = <
      item
        Name = 'TrackId'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'DiscId'
        DataType = ftInteger
      end
      item
        Name = 'AlbumId'
        DataType = ftInteger
      end
      item
        Name = 'ArtistId'
        DataType = ftInteger
      end
      item
        Name = 'GenreId'
        DataType = ftInteger
      end
      item
        Name = 'SecondaryGenreId'
        DataType = ftInteger
      end
      item
        Name = 'RecordLabelId'
        DataType = ftInteger
      end
      item
        Name = 'RatingId'
        DataType = ftInteger
      end
      item
        Name = 'TITLE'
        DataType = ftString
        Size = 150
      end
      item
        Name = 'TrackOrder'
        DataType = ftSmallint
      end
      item
        Name = 'BPM'
        DataType = ftSmallint
      end
      item
        Name = 'Year'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'Notes'
        DataType = ftMemo
      end
      item
        Name = 'Lyrics'
        DataType = ftMemo
      end
      item
        Name = 'Length'
        DataType = ftInteger
      end
      item
        Name = 'Marked'
        DataType = ftBoolean
      end
      item
        Name = 'MediaSide'
        DataType = ftSmallint
      end
      item
        Name = 'GenreParentId'
        DataType = ftInteger
      end
      item
        Name = 'SecondaryGenreParentId'
        DataType = ftInteger
      end
      item
        Name = 'ConductorId'
        DataType = ftInteger
      end
      item
        Name = 'OrchestraId'
        DataType = ftInteger
      end>
    IndexDefs = <>
    IndexFieldNames = 'AlbumId'
    Params = <>
    ProviderName = 'DspTracks'
    StoreDefs = True
    Left = 560
    Top = 176
  end
  object DsTracks: TDataSource
    DataSet = TblTracks
    Left = 768
    Top = 176
  end
  object DspMedia: TDataSetProvider
    DataSet = TblMedia
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    Left = 448
    Top = 128
  end
  object CdsAlbumMedia: TClientDataSet
    Aggregates = <>
    Filter = 'AlbumId = 1'
    Filtered = True
    IndexFieldNames = 'AlbumId'
    Params = <>
    ProviderName = 'DspMedia'
    AfterApplyUpdates = CdsAlbumMediaAfterApplyUpdates
    Left = 560
    Top = 128
  end
  object DspAlbumCredits: TDataSetProvider
    DataSet = TblAlbumCredits
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    Left = 448
    Top = 272
  end
  object CdsAlbumCredits: TClientDataSet
    Aggregates = <>
    Filter = 'AlbumId = 1'
    Filtered = True
    FieldDefs = <
      item
        Name = 'AlbumCreditId'
        DataType = ftInteger
      end
      item
        Name = 'AlbumId'
        DataType = ftInteger
      end
      item
        Name = 'RoleId'
        DataType = ftInteger
      end
      item
        Name = 'PersonId'
        DataType = ftInteger
      end
      item
        Name = 'Notes'
        DataType = ftMemo
      end>
    IndexDefs = <
      item
        Name = 'AlbumId'
        Fields = 'AlbumId'
      end>
    IndexFieldNames = 'AlbumId'
    FetchOnDemand = False
    Params = <>
    ProviderName = 'DspAlbumCredits'
    StoreDefs = True
    Left = 560
    Top = 272
  end
  object DspTrackCredits: TDataSetProvider
    DataSet = TblTrackCredits
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    Left = 448
    Top = 224
  end
  object CdsAlbumTrackCredits: TClientDataSet
    Aggregates = <>
    Filter = 'AlbumId = 1'
    Filtered = True
    FieldDefs = <
      item
        Name = 'TrackCreditId'
        DataType = ftInteger
      end
      item
        Name = 'TrackId'
        DataType = ftInteger
      end
      item
        Name = 'AlbumId'
        DataType = ftInteger
      end
      item
        Name = 'RoleId'
        DataType = ftInteger
      end
      item
        Name = 'PersonId'
        DataType = ftInteger
      end
      item
        Name = 'Notes'
        DataType = ftMemo
      end>
    IndexDefs = <
      item
        Name = 'CdsTrackCreditsIndex1'
        Fields = 'TrackId'
      end>
    IndexFieldNames = 'TrackId'
    Params = <>
    ProviderName = 'DspTrackCredits'
    StoreDefs = True
    Left = 560
    Top = 224
  end
  object DspRatings: TDataSetProvider
    DataSet = TblRatings
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    AfterUpdateRecord = DspRatingsAfterUpdateRecord
    Left = 104
    Top = 272
  end
  object CdsRatings: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'RatingId'
        DataType = ftInteger
      end
      item
        Name = 'Rating'
        DataType = ftSmallint
      end
      item
        Name = 'Description'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <>
    IndexFieldNames = 'RatingId'
    Params = <>
    ProviderName = 'DspRatings'
    StoreDefs = True
    Left = 184
    Top = 272
  end
  object DsRatings: TDataSource
    DataSet = CdsRatings
    Left = 264
    Top = 272
  end
  object DsAlbumTracks: TDataSource
    DataSet = CdsAlbumTracks
    Left = 664
    Top = 176
  end
  object DspArtists: TDataSetProvider
    DataSet = TblArtists
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    AfterUpdateRecord = DspArtistsAfterUpdateRecord
    Left = 104
    Top = 80
  end
  object DspNames: TDataSetProvider
    DataSet = TblNames
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    Left = 104
    Top = 32
  end
  object CdsArtists: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'ArtistId'
    Params = <>
    ProviderName = 'DspArtists'
    Left = 184
    Top = 80
  end
  object CdsNames: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'NameId'
    Params = <>
    ProviderName = 'DspNames'
    Left = 184
    Top = 32
  end
  object CdsStores: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'StoreId'
    Params = <>
    ProviderName = 'DspStores'
    Left = 184
    Top = 464
  end
  object DspStores: TDataSetProvider
    DataSet = TblStores
    ResolveToDataSet = True
    UpdateMode = upWhereKeyOnly
    AfterUpdateRecord = DspStoresAfterUpdateRecord
    Left = 104
    Top = 464
  end
  object EasyDb: TEasyDatabase
    DatabaseFileMode = dfmCompact
    DatabaseFileName =
      'D:\Documents and Settings\Greg Perrott\My Documents\My Audiophil' +
      'er Data\Sample.adb'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    HandleShared = True
    SessionName = 'Default'
    Left = 360
    Top = 80
  end
  object TblAlbums: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Albums'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    BLOBCompression = clFastest
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    AfterPost = TblAlbumsAfterPost
    Left = 360
    Top = 464
  end
  object TblKeys: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Keys'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 360
    Top = 320
  end
  object TblLists: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Lists'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 360
    Top = 368
  end
  object TblMedia: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Discs'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 360
    Top = 128
  end
  object TblTracks: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Tracks'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 360
    Top = 176
  end
  object TblGenres: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Genres'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 128
  end
  object TblMediaTypes: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'MediaTypes'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 224
  end
  object TblArtists: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Artists'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 80
  end
  object TblRatings: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Ratings'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 272
  end
  object TblNames: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Names'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 32
  end
  object TblLanguages: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Languages'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 176
  end
  object TblRegions: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Regions'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 368
  end
  object TblRoles: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Roles'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 416
  end
  object TblLabels: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Labels'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 320
  end
  object TblStores: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'Stores'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 24
    Top = 464
  end
  object TblAlbumCredits: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'AlbumCredits'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 360
    Top = 272
  end
  object TblTrackCredits: TEasyTable
    SessionName = 'Default'
    CurrentVersion = '5.72 '
    TableName = 'TrackCredits'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 360
    Top = 224
  end
  object TblAlbumsLookup: TEasyTable
    CurrentVersion = '5.72 '
    TableName = 'Albums'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 360
    Top = 416
    object TblAlbumsLookupAlbumId: TIntegerField
      FieldName = 'AlbumId'
      Required = True
    end
    object TblAlbumsLookupTitle: TStringField
      FieldName = 'Title'
      Size = 100
    end
    object TblAlbumsLookupCatNumber: TStringField
      FieldName = 'CatNumber'
      Size = 50
    end
  end
  object IceLicense: TIceLicense
    NetworkControl = False
    NetworkUsers = 0
    TrialMode = tmDaysExpiration
    WebBrowserState = bsNormal
    Left = 360
    Top = 32
    CommonWin = {
      59013FEF65BD0CE5FA3C1D6756AFF7EB8585B1572769DBC62E1FA854A1BC29AD
      0F71A7308A45CBC5D3AEAD5ACEC3D24994138717E7254D21CB832A4703567602
      D71035CB594E4F0EAF8B6FA00DF0197B69B384F25E76919A605A6A487744E1B2
      A3355BCD4B128501C5655B69CD3182284C7A7538FEBB2BF75BD9AD06642A3257
      F6F074EF6A92A15C400109B0441D4F92A529D3A9AB8B93F7D47EE20E2B3D5E94
      CCC5C45C066295A2099358654C6C99B2CC4466591137625F404AE99A8E1CF017
      7514936F09CD0DF87DCBECD9180710EC41D3180D403D4CB6EF133CA887813C66
      D88002C04DE4C53B9F10774FB5501268E5D093DFF26B1FC41E165C9F97C8EE25
      52F473AFB26561F8FD2477CF8CBDF839ACB42B37A905797C6E30DB321D3A4AC3
      450A69FDDCA161C36C708ACA9DACCFEFA7CB9AAB56124F}
    CommCtrl =
      'bf8H*#Ra+9K*xUUjvXeCgzHWJqsqiWY+7vSDnooe6HXqdgt%~iGRe+zQwFStRViW' +
      '3KKnRNSWoAq2CBWp44&5E9kWSunbJBBZ5xMA7La-b9wn4YTQ#Z6Q2t.'
    Multimon = '.'
    ExtCtrl = False
    Forms =
      'Jk4ddgymAXrn+PQiWf2r84iUQYxfNW-EBaf*w6YYs&WR84R%8asHKFQZ+aVuqrZp' +
      'umqTiTD2e5yc*%AR&Bc.'
    ImgList = False
    Tlhelp32 = True
    DsgnIntf = 'fa8X*3pd-fTfyNtPwKz3.'
    Clipbrd = '.'
    Graphics = 957569
    SysUtils = 678458
    Windows = 'J3Thgq-oSPqqh4KjBcNjLYzxQY*jJUr5Sq7ywMZJfnbJ8UHd.'
    Kernel32 = 'JiSydxktALsvaJF.'
    Win386 = 453283
    Classes = 'JUSddqkrAGS~d2VbBz2iLSe%L7-qN9u.'
    WinDLL = '.'
    WinCMD = 'J*ArdymmAT~vuPn*Bh2qJ5&.'
  end
  object EditStyles: TcxEditStyleController
    Style.LookAndFeel.NativeStyle = True
    Left = 440
    Top = 32
  end
  object Styles: TcxStyleRepository
    Left = 440
    Top = 80
    object cxStyle1: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 8577019
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svFont]
      Font.Charset = ANSI_CHARSET
      Font.Color = clDefault
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
    end
    object cxStyle3: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = 8577019
      Font.Charset = ANSI_CHARSET
      Font.Color = clDefault
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
    end
    object cxStyle4: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clDefault
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
    end
    object AudiophilerDefault: TcxGridBandedTableViewStyleSheet
      Styles.Content = cxStyle2
      Styles.Inactive = cxStyle3
      Styles.Selection = cxStyle1
      Styles.Group = cxStyle4
      BuiltIn = True
    end
  end
  object DsAlbumsLookup: TDataSource
    DataSet = TblAlbumsLookup
    Left = 448
    Top = 418
  end
  object TblProperties: TEasyTable
    CurrentVersion = '5.72 '
    TableName = 'Properties'
    DatabaseName = 'AudiophilerDb'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 448
    Top = 368
  end
  object EditRepository: TcxEditRepository
    Left = 520
    Top = 32
    object RecordLabelComboBox: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'LabelId'
      Properties.ListColumns = <
        item
          Caption = 'Label Name'
          SortOrder = soAscending
          FieldName = 'LabelName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsLabels
      Properties.Revertable = True
      Properties.OnNewLookupDisplayText = LookupComboBoxPropertiesNewLookupDisplayText
    end
    object GenrePopup: TcxEditRepositoryPopupItem
      Properties.PopupControl = FmGenrePopup.TreeGenres
      Properties.PopupHeight = 254
      Properties.PopupMinHeight = 254
      Properties.PopupSysPanelStyle = True
      Properties.PopupWidth = 0
      Properties.OnInitPopup = PopupPropertiesInitPopup
    end
    object NameComboBox: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'NameId'
      Properties.ListColumns = <
        item
          Caption = 'Sort Name'
          SortOrder = soAscending
          FieldName = 'SortName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsNames
      Properties.Revertable = True
      Properties.OnNewLookupDisplayText = LookupComboBoxPropertiesNewLookupDisplayText
    end
    object ArtistComboBox: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'ArtistId'
      Properties.ListColumns = <
        item
          Caption = 'Sort Name'
          SortOrder = soAscending
          FieldName = 'SortName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsArtists
      Properties.Revertable = True
      Properties.OnNewLookupDisplayText = LookupComboBoxPropertiesNewLookupDisplayText
    end
    object RatingLookupComboBox: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'RatingId'
      Properties.ListColumns = <
        item
          FieldName = 'Description'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsRatings
      Properties.Revertable = True
      Properties.OnNewLookupDisplayText = LookupComboBoxPropertiesNewLookupDisplayText
    end
    object LanguageLookupComboBox: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'LanguageId'
      Properties.ListColumns = <
        item
          Caption = 'Name'
          SortOrder = soAscending
          FieldName = 'LanguageName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsLanguages
      Properties.Revertable = True
      Properties.OnNewLookupDisplayText = LookupComboBoxPropertiesNewLookupDisplayText
    end
    object RegionLookupComboBox: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'RegionId'
      Properties.ListColumns = <
        item
          Caption = 'Name'
          SortOrder = soAscending
          FieldName = 'RegionName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsRegions
      Properties.Revertable = True
      Properties.OnNewLookupDisplayText = LookupComboBoxPropertiesNewLookupDisplayText
    end
    object StoreLookupComboBox: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'StoreId'
      Properties.ListColumns = <
        item
          Caption = 'Name'
          SortOrder = soAscending
          FieldName = 'StoreName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsStores
      Properties.Revertable = True
      Properties.OnNewLookupDisplayText = LookupComboBoxPropertiesNewLookupDisplayText
    end
    object MediaFormatImageComboBox: TcxEditRepositoryImageComboBoxItem
      Properties.Images = FmGenrePopup.ImagesMedia
      Properties.Items = <>
      Properties.Revertable = True
    end
    object RolePopup: TcxEditRepositoryPopupItem
      Properties.PopupControl = FmGenrePopup.TreeRoles
      Properties.PopupHeight = 254
      Properties.PopupMinHeight = 254
      Properties.PopupSysPanelStyle = True
      Properties.PopupWidth = 0
      Properties.OnInitPopup = PopupPropertiesInitPopup
    end
    object RoleLookupComboBox: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'RoleId'
      Properties.ListColumns = <
        item
          SortOrder = soAscending
          FieldName = 'RoleName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsRoles
      Properties.Revertable = True
    end
    object GenreLookupComboBox: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.KeyFieldNames = 'GenreId'
      Properties.ListColumns = <
        item
          Caption = 'Genre Name'
          FieldName = 'GenreName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsMetaGenreLookup
      Properties.Revertable = True
    end
    object MediaFormatLookup: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownRows = 16
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'MediaTypeId'
      Properties.ListColumns = <
        item
          SortOrder = soAscending
          FieldName = 'MediaName'
        end>
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsMediaTypes
    end
    object AlbumLookup: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'AlbumId'
      Properties.ListColumns = <
        item
          Caption = 'Album Title'
          SortOrder = soAscending
          FieldName = 'Title'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsAlbumsLookup
      Properties.Revertable = True
    end
    object CatNumberLookup: TcxEditRepositoryLookupComboBoxItem
      Properties.GridMode = True
      Properties.KeyFieldNames = 'AlbumId'
      Properties.ListColumns = <
        item
          FieldName = 'CatNumber'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsAlbumsLookup
    end
    object DiscSlotLookup: TcxEditRepositoryLookupComboBoxItem
      Properties.GridMode = True
      Properties.KeyFieldNames = 'DiscId'
      Properties.ListColumns = <
        item
          FieldName = 'SlotNumber'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsMediaLookup
    end
    object SubgenreLookup: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 16
      Properties.DropDownSizeable = True
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'GenreId'
      Properties.ListColumns = <
        item
          SortOrder = soAscending
          FieldName = 'GenreName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsSubgenreLookup
      Properties.Revertable = True
    end
    object ArtistLookup: TcxEditRepositoryLookupComboBoxItem
      Properties.KeyFieldNames = 'ArtistId'
      Properties.ListColumns = <
        item
          SortOrder = soAscending
          FieldName = 'SortName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsArtists
    end
    object RecordLabelLookup: TcxEditRepositoryLookupComboBoxItem
      Properties.KeyFieldNames = 'LabelId'
      Properties.ListColumns = <
        item
          SortOrder = soAscending
          FieldName = 'LabelName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsLabels
    end
    object NameLookup: TcxEditRepositoryLookupComboBoxItem
      Properties.KeyFieldNames = 'NameId'
      Properties.ListColumns = <
        item
          SortOrder = soAscending
          FieldName = 'SortName'
        end>
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DsNames
    end
  end
  object TblMediaLookup: TEasyTable
    CurrentVersion = '5.72 '
    TableName = 'Discs'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 360
    Top = 512
    object TblMediaLookupDiscId: TIntegerField
      FieldName = 'DiscId'
      Required = True
    end
    object TblMediaLookupAlbumId: TIntegerField
      FieldName = 'AlbumId'
    end
    object TblMediaLookupSlotNumber: TIntegerField
      FieldName = 'SlotNumber'
    end
  end
  object DsMediaLookup: TDataSource
    DataSet = TblMediaLookup
    Left = 448
    Top = 512
  end
  object DsAlbumMedia: TDataSource
    DataSet = CdsAlbumMedia
    OnDataChange = DsAlbumMediaDataChange
    Left = 664
    Top = 128
  end
  object TblSubgenreLookup: TEasyTable
    Filter = 'GenreParent > 0'
    Filtered = True
    CurrentVersion = '5.72 '
    TableName = 'Genres'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 576
    Top = 448
  end
  object TblMetaGenreLookup: TEasyTable
    Filter = 'GenreParent < 0'
    Filtered = True
    CurrentVersion = '5.72 '
    TableName = 'Genres'
    DatabaseName = 'AudiophilerDb'
    IndexName = 'PrimaryKey'
    InMemory = False
    AutoIndexes = False
    CacheEnabled = True
    BDELikeFilter = False
    Left = 576
    Top = 504
  end
  object DsSubgenreLookup: TDataSource
    DataSet = TblSubgenreLookup
    Left = 688
    Top = 448
  end
  object DsMetaGenreLookup: TDataSource
    DataSet = TblMetaGenreLookup
    Left = 688
    Top = 504
  end
end